home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / misc / emu / QDOS1.lha / QLboot / QLdisk.mkLHA < prev    next >
AmigaDOS Script File  |  1996-10-15  |  622b  |  35 lines
  1. .key opt1
  2. .def opt1 "QL0:"
  3. .bra {
  4. .ket }
  5.  
  6. FailAt 21
  7.  
  8. Echo "This script copies the contents of a"
  9. Echo "QDOS (QL) disk into an LHA archive."
  10.  
  11. Assign >NIL: QL0: EXISTS
  12.  
  13. If WARN
  14.  Echo "Please:"
  15.  Echo "   1) Mount the QLfilesystem"
  16.  Echo "   2) Put a QL disk in DF0:"
  17.  Echo "   3) Try again."
  18.  Wait 5
  19. Else
  20.  
  21.  Version >NIL: CLI 37 internal
  22.  If NOT WARN
  23.   List >t:qdos{$$} ALL LFORMAT "lha -x -a -r -d a ram:QLdisk.lha {opt1}%n" {opt1}
  24.  Else
  25.   List >t:qdos{$$} LFORMAT "lha -x -a -r -d a ram:QLdisk.lha {opt1}%t" {opt1}
  26.  EndIf
  27.  
  28.  Copy QLdisk.mkLHA.info ram:QLdisk.lha.info
  29.  execute t:qdos{$$}
  30.  delete t:qdos{$$}
  31.  
  32. EndIf
  33.  
  34. FailAt 10
  35.